home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / dock2fkey.lha / dock2fkey next >
Text File  |  2002-06-21  |  424b  |  20 lines
  1. /* $VER: dock2key 1.0 $
  2.  * AmiDock prefs to FKey
  3.  * © by Stefan Haubenthal 2002
  4.  */
  5. if ~show(p,"FKEY.1") then do
  6.     address command "run >nil: fkey"
  7.     address command waitforport FKEY.1
  8. end
  9. f=1
  10. if open(env,"ENV:Sys/AmiDock.prefs") then do
  11.     do while ~eof(env)
  12.         parse value readln(env) with "ICON: "args
  13.         if args~="" & f<12 then do
  14.             address FKEY.1 "addkey F"f "cmd 6 args" args
  15.             address FKEY.1 hide
  16.             f=f+1
  17.         end
  18.     end
  19. end
  20.